home *** CD-ROM | disk | FTP | other *** search
/ Programming Microsoft Visual Basic .NET / Programming Microsoft Visual Basic .NET (Microsoft Press)(X08-78517)(2002).bin / 17 controls / databindingdemo / dsbiblio.vb < prev    next >
Text File  |  2001-10-21  |  20KB  |  519 lines
  1. '------------------------------------------------------------------------------
  2. ' <autogenerated>
  3. '     This code was generated by a tool.
  4. '     Runtime Version: 1.0.2914.16
  5. '
  6. '     Changes to this file may cause incorrect behavior and will be lost if 
  7. '     the code is regenerated.
  8. ' </autogenerated>
  9. '------------------------------------------------------------------------------
  10.  
  11. Option Strict Off
  12. Option Explicit On
  13.  
  14. Imports System
  15. Imports System.Data
  16. Imports System.Runtime.Serialization
  17. Imports System.Xml
  18.  
  19.  
  20. <Serializable(),  _
  21.  System.ComponentModel.DesignerCategoryAttribute("code")>  _
  22. Public Class dsBiblio
  23.     Inherits System.Data.DataSet
  24.     
  25.     Private tablePublishers As PublishersDataTable
  26.     
  27.     Public Sub New()
  28.         MyBase.New
  29.         Me.InitClass
  30.     End Sub
  31.     
  32.     Private Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
  33.         MyBase.New
  34.         Me.InitClass
  35.         Me.GetSerializationData(info, context)
  36.     End Sub
  37.     
  38.     <System.ComponentModel.Browsable(false),  _
  39.      System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)>  _
  40.     Public ReadOnly Property Publishers As PublishersDataTable
  41.         Get
  42.             Return Me.tablePublishers
  43.         End Get
  44.     End Property
  45.     
  46.     Protected Overrides Function ShouldSerializeTables() As Boolean
  47.         Return false
  48.     End Function
  49.     
  50.     Protected Overrides Function ShouldSerializeRelations() As Boolean
  51.         Return false
  52.     End Function
  53.     
  54.     Protected Overrides Sub ReadXmlSerializable(ByVal reader As XmlReader)
  55.         Me.ReadXml(reader, XmlReadMode.IgnoreSchema)
  56.     End Sub
  57.     
  58.     Protected Overrides Function GetSchemaSerializable() As System.Xml.Schema.XmlSchema
  59.         Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
  60.         Me.WriteXmlSchema(New XmlTextWriter(stream, Nothing))
  61.         stream.Position = 0
  62.         Return System.Xml.Schema.XmlSchema.Read(New XmlTextReader(stream), Nothing)
  63.     End Function
  64.     
  65.     Private Sub InitClass()
  66.         Me.DataSetName = "dsBiblio"
  67.         Me.Namespace = "http://www.tempuri.org/dsBiblio.xsd"
  68.         Me.tablePublishers = New PublishersDataTable
  69.         Me.Tables.Add(Me.tablePublishers)
  70.     End Sub
  71.     
  72.     Private Function ShouldSerializePublishers() As Boolean
  73.         Return false
  74.     End Function
  75.     
  76.     Public Delegate Sub PublishersRowChangeEventHandler(ByVal sender As Object, ByVal e As PublishersRowChangeEvent)
  77.     
  78.     Public Class PublishersDataTable
  79.         Inherits DataTable
  80.         Implements System.Collections.IEnumerable
  81.         
  82.         Private columnAddress As DataColumn
  83.         
  84.         Private columnCity As DataColumn
  85.         
  86.         Private columnComments As DataColumn
  87.         
  88.         Private columnCompany_Name As DataColumn
  89.         
  90.         Private columnFax As DataColumn
  91.         
  92.         Private columnName As DataColumn
  93.         
  94.         Private columnPubID As DataColumn
  95.         
  96.         Private columnState As DataColumn
  97.         
  98.         Private columnTelephone As DataColumn
  99.         
  100.         Private columnZip As DataColumn
  101.         
  102.         Friend Sub New()
  103.             MyBase.New("Publishers")
  104.             Me.InitClass
  105.         End Sub
  106.         
  107.         <System.ComponentModel.Browsable(false)>  _
  108.         Public ReadOnly Property Count As Integer
  109.             Get
  110.                 Return Me.Rows.Count
  111.             End Get
  112.         End Property
  113.         
  114.         Friend ReadOnly Property AddressColumn As DataColumn
  115.             Get
  116.                 Return Me.columnAddress
  117.             End Get
  118.         End Property
  119.         
  120.         Friend ReadOnly Property CityColumn As DataColumn
  121.             Get
  122.                 Return Me.columnCity
  123.             End Get
  124.         End Property
  125.         
  126.         Friend ReadOnly Property CommentsColumn As DataColumn
  127.             Get
  128.                 Return Me.columnComments
  129.             End Get
  130.         End Property
  131.         
  132.         Friend ReadOnly Property Company_NameColumn As DataColumn
  133.             Get
  134.                 Return Me.columnCompany_Name
  135.             End Get
  136.         End Property
  137.         
  138.         Friend ReadOnly Property FaxColumn As DataColumn
  139.             Get
  140.                 Return Me.columnFax
  141.             End Get
  142.         End Property
  143.         
  144.         Friend ReadOnly Property NameColumn As DataColumn
  145.             Get
  146.                 Return Me.columnName
  147.             End Get
  148.         End Property
  149.         
  150.         Friend ReadOnly Property PubIDColumn As DataColumn
  151.             Get
  152.                 Return Me.columnPubID
  153.             End Get
  154.         End Property
  155.         
  156.         Friend ReadOnly Property StateColumn As DataColumn
  157.             Get
  158.                 Return Me.columnState
  159.             End Get
  160.         End Property
  161.         
  162.         Friend ReadOnly Property TelephoneColumn As DataColumn
  163.             Get
  164.                 Return Me.columnTelephone
  165.             End Get
  166.         End Property
  167.         
  168.         Friend ReadOnly Property ZipColumn As DataColumn
  169.             Get
  170.                 Return Me.columnZip
  171.             End Get
  172.         End Property
  173.         
  174.         Public Default ReadOnly Property Item(ByVal index As Integer) As PublishersRow
  175.             Get
  176.                 Return CType(Me.Rows(index),PublishersRow)
  177.             End Get
  178.         End Property
  179.         
  180.         Public Event PublishersRowChanged As PublishersRowChangeEventHandler
  181.         
  182.         Public Event PublishersRowChanging As PublishersRowChangeEventHandler
  183.         
  184.         Public Event PublishersRowDeleted As PublishersRowChangeEventHandler
  185.         
  186.         Public Event PublishersRowDeleting As PublishersRowChangeEventHandler
  187.         
  188.         Public Overloads Sub AddPublishersRow(ByVal row As PublishersRow)
  189.             Me.Rows.Add(row)
  190.         End Sub
  191.         
  192.         Public Overloads Function AddPublishersRow(ByVal Address As String, ByVal City As String, ByVal Comments As String, ByVal Company_Name As String, ByVal Fax As String, ByVal Name As String, ByVal State As String, ByVal Telephone As String, ByVal Zip As String) As PublishersRow
  193.             Dim rowPublishersRow As PublishersRow = CType(Me.NewRow,PublishersRow)
  194.             rowPublishersRow.ItemArray = New Object() {Address, City, Comments, Company_Name, Fax, Name, Nothing, State, Telephone, Zip}
  195.             Me.Rows.Add(rowPublishersRow)
  196.             Return rowPublishersRow
  197.         End Function
  198.         
  199.         Public Function FindByPubID(ByVal PubID As Integer) As PublishersRow
  200.             Return CType(Me.Rows.Find(New Object() {PubID}),PublishersRow)
  201.         End Function
  202.         
  203.         Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
  204.             Return Me.Rows.GetEnumerator
  205.         End Function
  206.         
  207.         Private Sub InitClass()
  208.             Me.columnAddress = New DataColumn("Address", GetType(System.String), "", System.Data.MappingType.Element)
  209.             Me.Columns.Add(Me.columnAddress)
  210.             Me.columnCity = New DataColumn("City", GetType(System.String), "", System.Data.MappingType.Element)
  211.             Me.Columns.Add(Me.columnCity)
  212.             Me.columnComments = New DataColumn("Comments", GetType(System.String), "", System.Data.MappingType.Element)
  213.             Me.Columns.Add(Me.columnComments)
  214.             Me.columnCompany_Name = New DataColumn("Company Name", GetType(System.String), "", System.Data.MappingType.Element)
  215.             Me.Columns.Add(Me.columnCompany_Name)
  216.             Me.columnFax = New DataColumn("Fax", GetType(System.String), "", System.Data.MappingType.Element)
  217.             Me.Columns.Add(Me.columnFax)
  218.             Me.columnName = New DataColumn("Name", GetType(System.String), "", System.Data.MappingType.Element)
  219.             Me.Columns.Add(Me.columnName)
  220.             Me.columnPubID = New DataColumn("PubID", GetType(System.Int32), "", System.Data.MappingType.Element)
  221.             Me.columnPubID.AutoIncrement = true
  222.             Me.columnPubID.AllowDBNull = false
  223.             Me.columnPubID.Unique = true
  224.             Me.Columns.Add(Me.columnPubID)
  225.             Me.columnState = New DataColumn("State", GetType(System.String), "", System.Data.MappingType.Element)
  226.             Me.Columns.Add(Me.columnState)
  227.             Me.columnTelephone = New DataColumn("Telephone", GetType(System.String), "", System.Data.MappingType.Element)
  228.             Me.Columns.Add(Me.columnTelephone)
  229.             Me.columnZip = New DataColumn("Zip", GetType(System.String), "", System.Data.MappingType.Element)
  230.             Me.Columns.Add(Me.columnZip)
  231.             Me.PrimaryKey = New DataColumn() {Me.columnPubID}
  232.         End Sub
  233.         
  234.         Public Function NewPublishersRow() As PublishersRow
  235.             Return CType(Me.NewRow,PublishersRow)
  236.         End Function
  237.         
  238.         Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
  239.             'We need to ensure that all Rows in the tabled are typed rows.
  240.             'Table calls newRow whenever it needs to create a row.
  241.             'So the following conditions are covered by Row newRow(Record record)
  242.             '* Cursor calls table.addRecord(record) 
  243.             '* table.addRow(object[] values) calls newRow(record)    
  244.             Return New PublishersRow(builder)
  245.         End Function
  246.         
  247.         Protected Overrides Function GetRowType() As System.Type
  248.             Return GetType(PublishersRow)
  249.         End Function
  250.         
  251.         Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
  252.             MyBase.OnRowChanged(e)
  253.             If (Not (Me.PublishersRowChangedEvent) Is Nothing) Then
  254.                 RaiseEvent PublishersRowChanged(Me, New PublishersRowChangeEvent(CType(e.Row,PublishersRow), e.Action))
  255.             End If
  256.         End Sub
  257.         
  258.         Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
  259.             MyBase.OnRowChanging(e)
  260.             If (Not (Me.PublishersRowChangingEvent) Is Nothing) Then
  261.                 RaiseEvent PublishersRowChanging(Me, New PublishersRowChangeEvent(CType(e.Row,PublishersRow), e.Action))
  262.             End If
  263.         End Sub
  264.         
  265.         Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
  266.             MyBase.OnRowDeleted(e)
  267.             If (Not (Me.PublishersRowDeletedEvent) Is Nothing) Then
  268.                 RaiseEvent PublishersRowDeleted(Me, New PublishersRowChangeEvent(CType(e.Row,PublishersRow), e.Action))
  269.             End If
  270.         End Sub
  271.         
  272.         Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
  273.             MyBase.OnRowDeleting(e)
  274.             If (Not (Me.PublishersRowDeletingEvent) Is Nothing) Then
  275.                 RaiseEvent PublishersRowDeleting(Me, New PublishersRowChangeEvent(CType(e.Row,PublishersRow), e.Action))
  276.             End If
  277.         End Sub
  278.         
  279.         Public Sub RemovePublishersRow(ByVal row As PublishersRow)
  280.             Me.Rows.Remove(row)
  281.         End Sub
  282.     End Class
  283.     
  284.     Public Class PublishersRow
  285.         Inherits DataRow
  286.         
  287.         Private tablePublishers As PublishersDataTable
  288.         
  289.         Friend Sub New(ByVal rb As DataRowBuilder)
  290.             MyBase.New(rb)
  291.             Me.tablePublishers = CType(Me.Table,PublishersDataTable)
  292.         End Sub
  293.         
  294.         Public Property Address As String
  295.             Get
  296.                 Try 
  297.                     Return CType(Me(Me.tablePublishers.AddressColumn),String)
  298.                 Catch e As InvalidCastException
  299.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  300.                 End Try
  301.             End Get
  302.             Set
  303.                 Me(Me.tablePublishers.AddressColumn) = value
  304.             End Set
  305.         End Property
  306.         
  307.         Public Property City As String
  308.             Get
  309.                 Try 
  310.                     Return CType(Me(Me.tablePublishers.CityColumn),String)
  311.                 Catch e As InvalidCastException
  312.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  313.                 End Try
  314.             End Get
  315.             Set
  316.                 Me(Me.tablePublishers.CityColumn) = value
  317.             End Set
  318.         End Property
  319.         
  320.         Public Property Comments As String
  321.             Get
  322.                 Try 
  323.                     Return CType(Me(Me.tablePublishers.CommentsColumn),String)
  324.                 Catch e As InvalidCastException
  325.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  326.                 End Try
  327.             End Get
  328.             Set
  329.                 Me(Me.tablePublishers.CommentsColumn) = value
  330.             End Set
  331.         End Property
  332.         
  333.         Public Property Company_Name As String
  334.             Get
  335.                 Try 
  336.                     Return CType(Me(Me.tablePublishers.Company_NameColumn),String)
  337.                 Catch e As InvalidCastException
  338.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  339.                 End Try
  340.             End Get
  341.             Set
  342.                 Me(Me.tablePublishers.Company_NameColumn) = value
  343.             End Set
  344.         End Property
  345.         
  346.         Public Property Fax As String
  347.             Get
  348.                 Try 
  349.                     Return CType(Me(Me.tablePublishers.FaxColumn),String)
  350.                 Catch e As InvalidCastException
  351.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  352.                 End Try
  353.             End Get
  354.             Set
  355.                 Me(Me.tablePublishers.FaxColumn) = value
  356.             End Set
  357.         End Property
  358.         
  359.         Public Property Name As String
  360.             Get
  361.                 Try 
  362.                     Return CType(Me(Me.tablePublishers.NameColumn),String)
  363.                 Catch e As InvalidCastException
  364.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  365.                 End Try
  366.             End Get
  367.             Set
  368.                 Me(Me.tablePublishers.NameColumn) = value
  369.             End Set
  370.         End Property
  371.         
  372.         Public Property PubID As Integer
  373.             Get
  374.                 Return CType(Me(Me.tablePublishers.PubIDColumn),Integer)
  375.             End Get
  376.             Set
  377.                 Me(Me.tablePublishers.PubIDColumn) = value
  378.             End Set
  379.         End Property
  380.         
  381.         Public Property State As String
  382.             Get
  383.                 Try 
  384.                     Return CType(Me(Me.tablePublishers.StateColumn),String)
  385.                 Catch e As InvalidCastException
  386.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  387.                 End Try
  388.             End Get
  389.             Set
  390.                 Me(Me.tablePublishers.StateColumn) = value
  391.             End Set
  392.         End Property
  393.         
  394.         Public Property Telephone As String
  395.             Get
  396.                 Try 
  397.                     Return CType(Me(Me.tablePublishers.TelephoneColumn),String)
  398.                 Catch e As InvalidCastException
  399.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  400.                 End Try
  401.             End Get
  402.             Set
  403.                 Me(Me.tablePublishers.TelephoneColumn) = value
  404.             End Set
  405.         End Property
  406.         
  407.         Public Property Zip As String
  408.             Get
  409.                 Try 
  410.                     Return CType(Me(Me.tablePublishers.ZipColumn),String)
  411.                 Catch e As InvalidCastException
  412.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  413.                 End Try
  414.             End Get
  415.             Set
  416.                 Me(Me.tablePublishers.ZipColumn) = value
  417.             End Set
  418.         End Property
  419.         
  420.         Public Function IsAddressNull() As Boolean
  421.             Return Me.IsNull(Me.tablePublishers.AddressColumn)
  422.         End Function
  423.         
  424.         Public Sub SetAddressNull()
  425.             Me(Me.tablePublishers.AddressColumn) = System.Convert.DBNull
  426.         End Sub
  427.         
  428.         Public Function IsCityNull() As Boolean
  429.             Return Me.IsNull(Me.tablePublishers.CityColumn)
  430.         End Function
  431.         
  432.         Public Sub SetCityNull()
  433.             Me(Me.tablePublishers.CityColumn) = System.Convert.DBNull
  434.         End Sub
  435.         
  436.         Public Function IsCommentsNull() As Boolean
  437.             Return Me.IsNull(Me.tablePublishers.CommentsColumn)
  438.         End Function
  439.         
  440.         Public Sub SetCommentsNull()
  441.             Me(Me.tablePublishers.CommentsColumn) = System.Convert.DBNull
  442.         End Sub
  443.         
  444.         Public Function IsCompany_NameNull() As Boolean
  445.             Return Me.IsNull(Me.tablePublishers.Company_NameColumn)
  446.         End Function
  447.         
  448.         Public Sub SetCompany_NameNull()
  449.             Me(Me.tablePublishers.Company_NameColumn) = System.Convert.DBNull
  450.         End Sub
  451.         
  452.         Public Function IsFaxNull() As Boolean
  453.             Return Me.IsNull(Me.tablePublishers.FaxColumn)
  454.         End Function
  455.         
  456.         Public Sub SetFaxNull()
  457.             Me(Me.tablePublishers.FaxColumn) = System.Convert.DBNull
  458.         End Sub
  459.         
  460.         Public Function IsNameNull() As Boolean
  461.             Return Me.IsNull(Me.tablePublishers.NameColumn)
  462.         End Function
  463.         
  464.         Public Sub SetNameNull()
  465.             Me(Me.tablePublishers.NameColumn) = System.Convert.DBNull
  466.         End Sub
  467.         
  468.         Public Function IsStateNull() As Boolean
  469.             Return Me.IsNull(Me.tablePublishers.StateColumn)
  470.         End Function
  471.         
  472.         Public Sub SetStateNull()
  473.             Me(Me.tablePublishers.StateColumn) = System.Convert.DBNull
  474.         End Sub
  475.         
  476.         Public Function IsTelephoneNull() As Boolean
  477.             Return Me.IsNull(Me.tablePublishers.TelephoneColumn)
  478.         End Function
  479.         
  480.         Public Sub SetTelephoneNull()
  481.             Me(Me.tablePublishers.TelephoneColumn) = System.Convert.DBNull
  482.         End Sub
  483.         
  484.         Public Function IsZipNull() As Boolean
  485.             Return Me.IsNull(Me.tablePublishers.ZipColumn)
  486.         End Function
  487.         
  488.         Public Sub SetZipNull()
  489.             Me(Me.tablePublishers.ZipColumn) = System.Convert.DBNull
  490.         End Sub
  491.     End Class
  492.     
  493.     Public Class PublishersRowChangeEvent
  494.         Inherits EventArgs
  495.         
  496.         Private eventRow As PublishersRow
  497.         
  498.         Private eventAction As System.Data.DataRowAction
  499.         
  500.         Public Sub New(ByVal row As PublishersRow, ByVal action As DataRowAction)
  501.             MyBase.New
  502.             Me.eventRow = row
  503.             Me.eventAction = action
  504.         End Sub
  505.         
  506.         Public ReadOnly Property Row As PublishersRow
  507.             Get
  508.                 Return Me.eventRow
  509.             End Get
  510.         End Property
  511.         
  512.         Public ReadOnly Property Action As DataRowAction
  513.             Get
  514.                 Return Me.eventAction
  515.             End Get
  516.         End Property
  517.     End Class
  518. End Class
  519.